
clear

// IMPORT CENSUS 1991 DATA

global prov_A AGRIGENTO ALESSANDRIA ANCONA AOSTA AREZZO ASCOLI_PICENO ASTI AVELLINO BARI BELLUNO BENEVENTO BERGAMO BOLOGNA BOLZANO BRESCIA ///
      BRINDISI CAGLIARI CALTANISSETTA CAMPOBASSO CASERTA CATANIA CATANZARO CHIETI COMO COSENZA CREMONA CUNEO ENNA FERRARA FIRENZE FOGGIA FORLI FROSINONE ///
	  GENOVA GORIZIA GROSSETO IMPERIA ISERNIA 
  

foreach name in $prov_A {
clear
infile using "$c1991\dictionary.do", using("$c1991\8921.IST104.A.1991.4.PROVINCIA_DI_`name'.txt")
save "$c1991\c1991_`name'.dta" , replace
}

clear
set more off
global prov_B MACERATA MANTOVA MASSA_CARRARA MATERA MESSINA MILANO MODENA NAPOLI NOVARA NUORO ORISTANO PADOVA PALERMO PARMA PAVIA PERUGIA ///
       PESARO_E_URBINO PESCARA PIACENZA PISA PISTOIA PORDENONE POTENZA RAGUSA RAVENNA REGGIO_DI_CALABRIA REGGIO_NELL_EMILIA RIETI ROMA ROVIGO ///
	   SALERNO SASSARI SAVONA SIENA SIRACUSA SONDRIO TARANTO TERAMO TERNI TORINO TRAPANI TRENTO TREVISO TRIESTE UDINE VARESE VENEZIA VERCELLI VERONA VICENZA VERONA VITERBO
foreach name in $prov_B {
clear
infile using "$c1991\dictionary.do", using("$c1991\8921.IST104.A.1991.4.PROVINCIA_DI_`name'.txt")
 save "$c1991\c1991_`name'.dta" , replace
}


***********************************************************************************************

clear 
set more off

global allprov AGRIGENTO ALESSANDRIA ANCONA AOSTA AREZZO ASCOLI_PICENO ASTI AVELLINO BARI BELLUNO BENEVENTO BERGAMO BOLOGNA BOLZANO BRESCIA ///
      BRINDISI CAGLIARI CALTANISSETTA CAMPOBASSO CASERTA CATANIA CATANZARO CHIETI COMO COSENZA CREMONA CUNEO ENNA FERRARA FIRENZE FOGGIA FORLI FROSINONE ///
	  GENOVA GORIZIA GROSSETO IMPERIA ISERNIA L_AQUILA LA_SPEZIA LATINA LECCE LIVORNO LUCCA MACERATA MANTOVA MASSA_CARRARA MATERA MESSINA MILANO MODENA NAPOLI NOVARA NUORO ORISTANO PADOVA PALERMO PARMA PAVIA ///
	  PERUGIA PESARO_E_URBINO PESCARA PIACENZA PISA PISTOIA PORDENONE POTENZA RAGUSA RAVENNA REGGIO_DI_CALABRIA REGGIO_NELL_EMILIA RIETI ROMA ROVIGO ///
	   SALERNO SASSARI SAVONA SIENA SIRACUSA SONDRIO TARANTO TERAMO TERNI TORINO TRAPANI TRENTO TREVISO TRIESTE UDINE VARESE VENEZIA VERCELLI VERONA VICENZA VERONA VITERBO

foreach name in $allprov {

use "$c1991\c1991_`name'.dta" , clear

label define gender 1 "maschio" 2 "femmina"
label define cittadinanza 000 "nullo" 100 "Italiana"  201 "Albania"   202	"Andorra" 203 "Austria" 206	"Belgio" 209 "Bulgaria" 210 "Ex-cecoslovacchia" 212	"Danimarca" 214	"Finlandia" 215	"Francia" 216 "Germania" 219 "Regno Unito" ///	
220	"Grecia" 221 "Irlanda" 223 "Islanda" 225 "Liechtenstein" 226 "Lussemburgo" 227	"Malta" 229	"Monaco" 231 "Norvegia" 232	"Paesi Bassi" 233 "Polonia" 234	"Portogallo" ///	
235	"Romania" 236 "San Marino" 239	"Spagna" 240 "Svezia" 241 "Svizzera" 243 "Ucraina" 244	"Ungheria" 245	"Russa,Federazione" 246	"Santa Sede" 247 "Estonia" 248 "Lettonia" ///
249	"Lituania" 250 "Croazia" 251 "Slovenia" 252	"Bosnia-Erzegovina" 253	"Macedonia,ex Repubblica Jugoslava di" 254 "Moldova" 255 "Slovacchia" 256 "Bielorussia" 257	"Ceca,Repubblica" ///	
270	"Montenegro" 271 "Serbia, Repubblica di" 301 "Afghanistan" 302 "Arabia Saudita" 304	"Bahrein" 305 "Bangladesh" 306 "Bhutan" 307	"Myanmar (ex Birmania)" 309	"Brunei" ///
310	"Cambogia" 311 "Sri Lanka (ex Ceylon)" 314	"Cinese, Repubblica Popolare" 315 "Cipro" 319 "Corea, Repubblica Popolare Democratica (Corea del Nord)" ///
320	"Corea, Repubblica (Corea del Sud)"  322	"Emirati Arabi Uniti" 323	"Filippine" 324	"Territori dell'Autonomia Palestinese" 	326	"Giappone" 	327	"Giordania" 330	"India" ///	
331	"Indonesia" 332	"Iran, Repubblica Islamica del" 333	"Iraq" 334	"Israele" 335 "Kuwait" 336 "Laos"  337 "Libano" 338 "Timor Orientale" 339 "Maldive" 340 "Malaysia" 341 "Mongolia" ///	
342	"Nepal" 343	"Oman" 344 "Pakistan" 345 "Qatar" 346	"Singapore" 348	"Siria" 349	"Thailandia" 351 "Turchia" 353 "Vietnam" 354 "Yemen" 356 "Kazakhstan" 357 "Uzbekistan" ///	
358	"Armenia" 359 "Azerbaigian" 360	"Georgia" 361 "Kirghizistan" 362 "Tagikistan" 363 "Taiwan (ex Formosa)" 364	"Turkmenistan" 401 "Algeria" 402 "Angola" 404 "Costa d'Avorio" ///	
406	"Benin (ex Dahomey)" 408 "Botswana" 409	"Burkina Faso (ex Alto Volta)" 410	"Burundi" 411 "Camerun" 413	"Capo Verde" 414 "Centrafricana, Repubblica" 415 "Ciad" 417	"Comore" ///	
418	"Congo (Repubblica del)" 419 "Egitto" 420 "Etiopia"  421	"Gabon" 422	"Gambia" 423 "Ghana" 424 "Gibuti" 425 "Guinea" 426 "GuineaBissau" 427 "Guinea Equatoriale" 428	"Kenya" ///	
429	"Lesotho" 430	"Liberia" 431 "Libia" 432 "Madagascar" 434	"Malawi" 435 "Mali" 436	"Marocco"  437	"Mauritania" 438 "Mauritius" 440 "Mozambico" 441 "Namibia" 442	"Niger" ///	
443	"Nigeria" 446 "Ruanda" 448	"Sao Tome Principe" 449 "Seychelles" 450	"Senegal" 451 "Sierra Leone" 453 "Somalia" 454	"Sud Africa" 455 "Sudan" 456 "Swaziland" 457 "Tanzania" ///	
458	"Togo" 460	"Tunisia" 461 "Uganda" 463	"Congo, Repubblica democratica del (ex Zaire)"  464 "Zambia" 465	"Zimbabwe (ex Rhodesia)" 466 "Eritrea" 503 "Antigua e Barbuda" ///	
505	"Bahamas" 506 "Barbados" 507 "Belize" 509 "Canada" 513	"Costa Rica" 514 "Cuba" 515	"Dominica" 516	"Dominicana, Repubblica" 517 "El Salvador" 518	"Giamaica" 519 "Grenada" ///	
523	"Guatemala" 524	"Haiti" 525	"Honduras" 527	"Messico" 529 "Nicaragua" 530 "Panama" 532	"Saint Lucia" 533 "Saint Vincent e Grenadine" 534 "Saint Kitts e Nevis" ///
536	"Stati Uniti d'America" 602	"Argentina"  604	"Bolivia" 605	"Brasile" 606 "Cile" 608 "Colombia" 609	"Ecuador" 612 "Guyana" 614	"Paraguay" 615	"Peru" 616 "Suriname" ///	
617	"Trinidad e Tobago" 618	"Uruguay" 619 "Venezuela" 701 "Australia" 703 "Figi" 708 "Kiribati" 712	"Marshall, Isole" 713 "Micronesia, Stati Federati" 715 "Nauru" 719 "Nuova Zelanda" ///	
720	"Palau" 721	"Papua Nuova Guinea" 725 "Salomone, Isole" 727	"Samoa" 730	"Tonga" 731	"Tuvalu" 732 "Vanuatu" 999 "APOLIDE" 888 "altro" 777 "non indicato"

label define codici_regioni  1 "Piemonte" 2 "Valle D'Aosta" 3 "Lombardia" 4 "Trentino Alto-Adige" 5 "Veneto" 6 "Friuli Venezia Giulia" 7 "Liguria" 8 "Emilia Romagna" ///
9 "Toscana" 10 "Umbria" 11 "Marche" 12 "Lazio" 13 "Abruzzo" 14 "Molise" 15 "Campania" 16 "Puglia" 17 "Basilicata" 18 "Calabria" 19 "Sicilia" 20 "Sardegna" 


drop if tip_rec==1 //record per abitazioni
lab define tr 2	"componenti famiglia" 3 "persona temp. presente nell'abitazione" 4 "membri permanenti"  5 "membri temporanei"  6 "straniero temporaneo"
lab values tip_rec tr
lab values provres codici_province
lab values sex gender 
lab var born_prov "provincia nascita"
lab values born_prov codici_province
rename nation nationality
lab values nationality cittadinanza
tab age
lab var ms "marital status"
label define stato_civile 1 "celibe/nubile" 2 "coniugato" 3 "separato di fatto" 4 "separato legalmente" 5 "divorziato" 6 "vedovo"
lab values ms stato_civile

* Origin of immigrants

tab nationality
codebook nationality
replace nationality = 100 if nationality==1 & tip_rec==3 // citt italiana
replace nationality = 100 if nationality==1 & tip_rec==5 // citt italiana
drop if nationality==2 & tip_rec==3 
drop if nationality==2 & tip_rec==5 
codebook born_prov
codebook nationality
gen bc=born_prov 
replace bc=100 if born_prov<200
replace bc=nationality if nationality!=. & born_prov==.
codebook bc
recode bc (100 = 0)
drop if bc==999 // apolidi 

* Marital status  

tab ms
gen single= ms==1 | ms==4 | ms==5 | ms==6 // single sono celibi separati div e vedovi
tab single

* Keep singles above 18 and below 61

preserve 
keep if single==1
drop if age<18 
drop if age>61  
collapse (sum) single , by(sex bc provres ) 
save "$c1991\singlemag_`name'_1991_country.dta" , replace
restore

preserve 
keep if single==1
drop if age<18 
drop if age>61  
rename cod_mun istat
collapse (sum) single , by(sex bc istat cod_reg ) 
save "$c1991\singlemag_`name'_1991_country_llm.dta" , replace
restore
}

* Append data 

clear
set more off
use "$c1991\singlemag_AGRIGENTO_1991_country.dta" , clear

global allprov2 ALESSANDRIA ANCONA AOSTA AREZZO ASCOLI_PICENO ASTI AVELLINO BARI BELLUNO BENEVENTO BERGAMO BOLOGNA BOLZANO BRESCIA ///
      BRINDISI CAGLIARI CALTANISSETTA CAMPOBASSO CASERTA CATANIA CATANZARO CHIETI COMO COSENZA CREMONA CUNEO ENNA FERRARA FIRENZE FOGGIA FORLI FROSINONE ///
	  GENOVA GORIZIA GROSSETO IMPERIA ISERNIA L_AQUILA LA_SPEZIA LATINA LECCE LIVORNO LUCCA MACERATA MANTOVA MASSA_CARRARA MATERA MESSINA MILANO MODENA NAPOLI NOVARA NUORO ORISTANO PADOVA PALERMO PARMA PAVIA PERUGIA ///
      PESARO_E_URBINO PESCARA PIACENZA PISA PISTOIA PORDENONE POTENZA RAGUSA RAVENNA REGGIO_DI_CALABRIA REGGIO_NELL_EMILIA RIETI ROMA ROVIGO ///
	  SALERNO SASSARI SAVONA SIENA SIRACUSA SONDRIO TARANTO TERAMO TERNI TORINO TRAPANI TRENTO TREVISO TRIESTE UDINE VARESE VENEZIA VERCELLI VICENZA VERONA VITERBO

foreach name in $allprov2 {
append using "$c1991\singlemag_`name'_1991_country.dta"
}
codebook provres 
recode provres ( 108 = 15) // change monza-brianza in MILANO
recode provres ( 110 = 72) // change barletta-andria-trani e foggia in BARI 
recode provres  ( 71 = 72)  
recode provres ( 91 = 92 ) // change oristano, nuoro, olbia-tempio, ogliastra, medio-campidano, carbonia-iglesias in CAGLIARI
recode provres ( 95 = 92 )
recode provres ( 104 = 92 )
recode provres ( 105 = 92 )
recode provres ( 106 = 92 )
recode provres ( 107 = 92 )
recode provres ( 99 = 41) // change rimini in pesaro
recode provres ( 109 = 44) // change fermo in ascoli-piceno
recode bc (270 = 224 ) // Serbia e Montenegro insieme
recode bc (271 = 224 )

collapse (sum) single , by(sex bc provres ) 

* Keep single males
preserve
keep if sex==1
rename single msinglemag_1991
rename bc hbc
drop sex
save "$data\Msinglemag_1991_country.dta" , replace
restore

* Keep single females 
preserve
keep if sex==2
rename single fsinglemag_1991
rename bc wbc
drop sex 
save "$data\Fsinglemag_1991_country.dta" , replace
restore

preserve
collapse (sum) single, by(sex bc)
save "$data\allsinglemag_1991_country.dta" , replace
restore



 *  Singles - local labor markets


clear
set more off
use "$c1991\singlemag_AGRIGENTO_1991_country_llm.dta" , clear

global allprov2 ALESSANDRIA ANCONA AOSTA AREZZO ASCOLI_PICENO ASTI AVELLINO BARI BELLUNO BENEVENTO BERGAMO BOLOGNA BOLZANO BRESCIA ///
      BRINDISI CAGLIARI CALTANISSETTA CAMPOBASSO CASERTA CATANIA CATANZARO CHIETI COMO COSENZA CREMONA CUNEO ENNA FERRARA FIRENZE FOGGIA FORLI FROSINONE ///
	  GENOVA GORIZIA GROSSETO IMPERIA ISERNIA L_AQUILA LA_SPEZIA LATINA LECCE LIVORNO LUCCA MACERATA MANTOVA MASSA_CARRARA MATERA MESSINA MILANO MODENA NAPOLI NOVARA NUORO ORISTANO PADOVA PALERMO PARMA PAVIA PERUGIA ///
      PESARO_E_URBINO PESCARA PIACENZA PISA PISTOIA PORDENONE POTENZA RAGUSA RAVENNA REGGIO_DI_CALABRIA REGGIO_NELL_EMILIA RIETI ROMA ROVIGO ///
	  SALERNO SASSARI SAVONA SIENA SIRACUSA SONDRIO TARANTO TERAMO TERNI TORINO TRAPANI TRENTO TREVISO TRIESTE UDINE VARESE VENEZIA VERCELLI VICENZA VERONA VITERBO

foreach name in $allprov2 {
append using "$c1991\singlemag_`name'_1991_country_llm.dta"
}
recode bc (270 = 224 ) // Serbia e Montenegro insieme
recode bc (271 = 224 )
collapse (sum) single , by(sex bc istat cod_reg ) 

* Keep single males
preserve
keep if sex==1
rename single msinglemag_1991
rename bc hbc
drop sex
save "$data\Msinglemag_1991_country_llm.dta" , replace
restore

* Keep single females 
preserve
keep if sex==2
rename single fsinglemag_1991
rename bc wbc
drop sex 
save "$data\Fsinglemag_1991_country_llm.dta" , replace
restore

